home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
eindex.dir
/
00706_Script_aIndexManager
< prev
next >
Wrap
Text File
|
1995-09-06
|
5KB
|
140 lines
--òò╩aIndexManager
property pTopicMenu , pLatchedAlpha
on birth me
return me
end
on testIndexRollover me
--set the trace = true
set thisAlpha = the mouseCast
if (thisAlpha > 0 and thisAlpha < 27) then
set thisAlphaIndex = getAt(pTopicMenu,thisAlpha)
setTopicMenu(thisAlphaIndex)
clearRefLinkIcon(thisAlphaIndex)
else
if (objectP(pLatchedAlpha) ) then
--òò because the art department could not generate the
--òò the highlight art fro the topic menu we need to
--disable the highlight fucnctionality (commented out below)
--if (rollover(2)) then
-- secondaryHilight (sub-menu)
-- set vOffset = the mouseV
-- setTopicHiLight(pLatchedAlpha , vOffset)
-- else
-- revert to latched topic menu
setTopicMenu(pLatchedAlpha)
-- end if
end if
end if
end
on resetIndex me
reset(pLatchedAlpha)
end
on clickAlpha me
set thisAlpha = the mouseCast
if (thisAlpha >= 1 and thisAlpha <= 26) then
set pLatchedAlpha = getAt(pTopicMenu,thisAlpha)
clearRefLinkIcon(pLatchedAlpha)
end if
end
on clickTopic me
set vOffset = the mouseV
selectTopicFromMenu(pLatchedAlpha,vOffset)
end
on clickRefLink me , horzPos,vertPos
set vOffset = vertPos --the mouseV
clickRefLink(pLatchedAlpha,vOffset ,horzPos,vertPos)
end
on initIndex me
set pTopicMenu = []
set indexCount = 1
set topicObjectClass = the number of cast "aTopicMenu"
--òò A Topic Menu
set thisMenu = (birth (script topicObjectClass, 1001 , 1001 , 2 , 1000 , 41 , 1024, 12,0))
append pTopicMenu, thisMenu
set pLatchedAlpha = thisMenu
--òò B
set thisMenu = (birth (script topicObjectClass, 1002 , 1002 , 2 , 1000 , 41 ,1046, 12,0))
append pTopicMenu, thisMenu
--òò C
set thisMenu = (birth (script topicObjectClass, 1003 , 1003 , 2 , 1000 , 41 ,1068, 10,9))
append pTopicMenu, thisMenu
--òò D
set thisMenu = (birth (script topicObjectClass, 1004 , 1004 , 2 , 1000 , 41 ,1090, 10,0))
append pTopicMenu, thisMenu
--òò E
set thisMenu = (birth (script topicObjectClass, 1005 , 1005 , 2 , 1000 , 41 ,1101, 6,0))
append pTopicMenu, thisMenu
--òò F
set thisMenu = (birth (script topicObjectClass, 1006 , 1006 , 2 , 1000 , 41 ,1112, 12,0))
append pTopicMenu, thisMenu
--òò G
set thisMenu = (birth (script topicObjectClass, 1007 , 1007 , 2 , 1000 , 41 ,1134, 13,0))
append pTopicMenu, thisMenu
--òò H
set thisMenu = (birth (script topicObjectClass, 1008 , 1008 , 2 , 1000 , 41 ,1156, 11, 0))
append pTopicMenu, thisMenu
--òò I
set thisMenu = (birth (script topicObjectClass, 1009 , 1009 , 2 , 1000 , 41 ,1178, 5, 0))
append pTopicMenu, thisMenu
--òò J
set thisMenu = (birth (script topicObjectClass, 1010 , 1010 , 2 , 1000 , 41 ,1189, 1, 0))
append pTopicMenu, thisMenu
--òò K
set thisMenu = (birth (script topicObjectClass, 1011 , 1011 , 2 , 1000 , 41 ,1200, 2, 0))
append pTopicMenu, thisMenu
--òò L
set thisMenu = (birth (script topicObjectClass, 1012 , 1012 , 2 , 1000 , 41 ,1211, 6, 0))
append pTopicMenu, thisMenu
--òò M
set thisMenu = (birth (script topicObjectClass, 1013 , 1013 , 2 , 1000 , 41 ,1222, 8, 8))
append pTopicMenu, thisMenu
--òò N
set thisMenu = (birth (script topicObjectClass, 1014 , 1014 , 2 , 1000 , 41 ,1244, 7, 0))
append pTopicMenu, thisMenu
--òò O
set thisMenu = (birth (script topicObjectClass, 1015 , 1015 , 2 , 1000 , 41 ,1255, 5, 0))
append pTopicMenu, thisMenu
--òò P
set thisMenu = (birth (script topicObjectClass, 1016 , 1016 , 2 , 1000 , 41 ,1266, 11, 10))
append pTopicMenu, thisMenu
--òò Q
set thisMenu = (birth (script topicObjectClass, 0 , 0 , 0 , 1000 , 41 ,45, 4, 0))
append pTopicMenu, thisMenu
--òò R
set thisMenu = (birth (script topicObjectClass, 1017 , 1017 , 2 , 1000 , 41 ,1288, 5, 0))
append pTopicMenu, thisMenu
--òò S
set thisMenu = (birth (script topicObjectClass, 1018 , 1018 , 2 , 1000 , 41 ,1299, 12, 11))
append pTopicMenu, thisMenu
--òò T
set thisMenu = (birth (script topicObjectClass, 1019 , 1019 , 2 , 1000 , 41 ,1332, 14, 0))
append pTopicMenu, thisMenu
--òò U
set thisMenu = (birth (script topicObjectClass, 0 , 0 , 0 , 1000 , 41 ,45, 0,0))
append pTopicMenu, thisMenu
--òò V
set thisMenu = (birth (script topicObjectClass, 1020 , 1020 , 2 , 1000 , 41 ,1354, 2,0))
append pTopicMenu, thisMenu
--òò W
set thisMenu = (birth (script topicObjectClass, 1021 , 1021 , 2 , 1000 , 41 ,1365, 11,0))
append pTopicMenu, thisMenu
--òò X
set thisMenu = (birth (script topicObjectClass, 1022 , 1022 , 2 , 1000 , 41 ,1387, 1,0))
append pTopicMenu, thisMenu
--òò Y
set thisMenu = (birth (script topicObjectClass, 0 , 0 , 0 , 1000 , 41 ,479, 0,0))
append pTopicMenu, thisMenu
--òò Z
set thisMenu = (birth (script topicObjectClass, 0 , 0 , 0 , 1000 , 41 ,45, 0,0))
append pTopicMenu, thisMenu
end